'*******************************
'*                             *
'*        Buchstabieren        *
'*                             *
'*    Norbert Ellert 11/87     *
'*                             *
'*******************************

Bildschirm: 
  SCREEN 1,640,250,2,2
  
Zuweisungen:
  a$(1)="TOBIAS"
  a$(2)="FRANZISKA"
  a$(3)="CAROLINE"
  a$(4)="NINA"
  a$(5)="AMIGA"
  a$(6)="COMMODORE"

Auswahlfeld:
  WINDOW 2,"   WELCHEN NAMEN WILLST DU BUCHSTABIEREN ?",,0,1
  SOUND 880,4
  COLOR 1,3
  CLS  
  COLOR 1,2
  FOR j=1 TO 3
    LINE (10+j*200-190,10)-(10+j*200,100),2,bf   'Grosse gruene Kaesten oben
    LINE (14+j*200-190,12)-( 6+j*200, 98),1,b    'Innere weisse Rahmen oben
    LOCATE 3,5+((j-1)*25)
    PRINT a$(j)
    LINE (10+j*200-190,105)-(10+j*200,205),2,bf  'Grosse gruene Kaesten unten
    LINE (14+j*200-190,107)-( 6+j*200,203),1,b   'Innere weisse Rahmen unten
    LOCATE 15,5+((j-1)*25)
    PRINT a$(3+j)
  NEXT j
  LINE (20,210)-(410,230),1,bf                   'Langer weisser Kasten unten
  LINE (24,212)-(406,228),0,b                    'Innerer Rahmen
  COLOR 0,1
  LOCATE 28,15
  PRINT "Klick` das Namensfeld an !";
  LINE (420,210)-(610,230),0,bf                  ' "ENDE"-Kasten
  LINE (424,212)-(606,228),1,b                   ' Innerer Rahmen
  COLOR 1,0
  LOCATE 28,71
  PRINT "ENDE"
  
Mausabfrage:
  Wahl=0
  ON MOUSE GOSUB Maustest
  MOUSE ON
  WHILE Wahl=0 : WEND

Beendigung:  
  IF Wahl=7 THEN SYSTEM
  
Suchfeld:
  WINDOW 2,"    WELCHE BUCHSTABEN GEHÖREN ZU DIESEM NAMEN ?",,0,1
  SOUND 880,4
  COLOR 1,2
  CLS
  nam$ = a$(Wahl)
  FOR i=1 TO LEN(nam$)
    LINE ((15+i*56)-40,10)-(15+i*56,30),0,bf    'Schwarze Kaesten
    LINE ((17+i*56)-40,11)-(12+i*56,28),1,b     'Innere Rahmen
    LINE ((15+i*56)-40,153)-(15+i*56,173),0,b   'Schwarze Rahmen unten
    LOCATE 3,i*7 
    COLOR 1,0
   PRINT MID$(nam$,i,1)
  NEXT  
  LINE (25,200)-(615,230),1,bf         'Weisser Kasten unten         
  LINE (29,202)-(611,228),0,b          'Innerer Rahmen
 COLOR 0,1
  LOCATE 27,20
  PRINT "Drück` die richtige Buchstabentaste !"
  LOCATE 28,20
  PRINT "*************************************"
  
Tastendruck:
  FOR i=1 TO LEN(nam$)   
    buchstabe$ = INKEY$
    IF buchstabe$ <> "" THEN buchstabe$ = UCASE$(buchstabe$)  
    IF buchstabe$ = MID$(nam$,i,1) THEN  
      SOUND 440,5
      LINE ((15+i*56)-40,153)-(15+i*56,173),0,bf  'Schwarze Rahmen fuellen
      LINE ((17+i*56)-40,154)-(12+i*56,171),1,b   'Innere Rahmen
      LOCATE 21,i*7
      COLOR 1,0
      PRINT MID$(nam$,i,1)
      LINE ((15+i*56)-45,5)-(20+i*56,178),2,b     'Weissen Rahmen loeschen      
      COLOR 1,2
      FOR j=1 TO 37
        SCROLL ((15+i*56)-40,30)-(15+i*56,173),0,-3  'Scrolling einzeln hoch
      NEXT j
    ELSE  
      LINE ((15+i*56)-45,5)-(20+i*56,178),1,b     'Weissen Rahmen setzen
      LOCATE 12,i*7
      COLOR 1,2
      PRINT "?"
      i=i-1
    END IF
  NEXT i

Fertig:
  LINE (26,5)-(20+(i-1)*56,68),1,b                'Weisser Gesamtrahmen oben
  COLOR 3,1
  LOCATE 27,20
  PRINT "      Das hast Du gut gemacht !      "
  LOCATE 28,20
  PRINT "      *************************      "

Belohnung:
  CIRCLE (500,150),61,0,,,0.5           'Schwarzen Aussenkreis setzen
  FOR j=0 TO 3
    FOR i=1 TO 60 STEP 4
      SOUND 261*(j+1),5.5
      CIRCLE (500,150),i,3-j,,,0.5
      CIRCLE (500,150),i+1,3-j,,,0.5
      CIRCLE (500,150),i+2,3-j,,,0.5
      CIRCLE (500,150),i+3,3-j,,,0.5
    NEXT i
  NEXT j
  PAINT (501,150),2                    'Schwarzen Kreis fuellen
  
Klickbereich:
  LINE (25,200)-(615,230),2,bf         'Bisherigen Kasten gruen ueberdecken
  LINE (25,200)-(100,230),1,bf         'Weisser Kasten links unten         
  LINE (29,202)-(96,228),0,b           'Innerer Rahmen
  LINE (110,200)-(615,230),1,bf        'Weisser Kasten rechts unten         
  LINE (114,202)-(611,228),0,b         'Innerer Rahmen
  COLOR 0,1 
  LOCATE 27,6
  PRINT "MAUS-"
  LOCATE 28,6
  PRINT "KLICK"
  LOCATE 27,28
  PRINT "           Bitte da klicken !           "
  LOCATE 28,28
  PRINT "<---------------------------------------"

Mausklick:
  Klick=0
  ON MOUSE GOSUB Klicktest
  MOUSE ON
  WHILE Klick=0 : WEND
  IF Klick=1 THEN Auswahlfeld
  
Maustest:
  IF MOUSE(0)=0 THEN Maustest
  IF MOUSE(1)> 20 AND MOUSE(1)<210 AND MOUSE(2)> 10 AND MOUSE(2)<100 THEN Wahl=1
  IF MOUSE(1)>220 AND MOUSE(1)<410 AND MOUSE(2)> 10 AND MOUSE(2)<100 THEN Wahl=2
  IF MOUSE(1)>420 AND MOUSE(1)<610 AND MOUSE(2)> 10 AND MOUSE(2)<100 THEN Wahl=3
  IF MOUSE(1)> 20 AND MOUSE(1)<210 AND MOUSE(2)>105 AND MOUSE(2)<205 THEN Wahl=4
  IF MOUSE(1)>220 AND MOUSE(1)<410 AND MOUSE(2)>105 AND MOUSE(2)<205 THEN Wahl=5
  IF MOUSE(1)>420 AND MOUSE(1)<610 AND MOUSE(2)>105 AND MOUSE(2)<205 THEN Wahl=6
  IF MOUSE(1)>420 AND MOUSE(1)<610 AND MOUSE(2)>210 AND MOUSE(2)<230 THEN Wahl=7
RETURN

Klicktest:
  IF MOUSE(0)=0 THEN Klicktest
  IF MOUSE(1)>25 AND MOUSE(1)<100 AND MOUSE(2)>200 AND MOUSE(2)<230 THEN Klick=1
RETURN